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EDITORIAL 


Il est de règle pour les collaborateurs de certaines sociétés Américaines de ne rester à leur poste que 
pour une durée de 3 ans environ. Cependant, je voudrais dénoncer un couple d’irréductibles ayant 
réussi à tenir plus de 53 ans à leur poste ! Sans donner de noms, je vous dirais que ces deux 
personnes portent les initiales H et P... Plus sérieusement, cette situation vient de changer, puisque 
David Packard va bientôt quitter le directoire de notre société préférée pour faire valoir son droit à la 
retraite. Avant qu’il ne nous quitte vraiment, nous ne pouvons que lui dire bravo et merci... Bill 
Hewlett reste à son poste, et devient de ce fait la plus ancienne personne travaillant dans la société... 


Ceux qui ont pu voir la vidéo Corvallis Plant Tour au cours de notre réunion anniversaire savent que 
les développeurs de nos chères machines possèdent un grand sens de l’humour. Il aura cependant 
fallu plus de vingt ans pour que cela apparaisse dans le code même des machines. En effet, les 
possesseurs des 48G et GX possèdent maintenant la fabuleuse (!) commande RULES montrant (sous la 
forme d’un mots croisés) les prénoms des principaux développeurs (Bill Wickes, Jim Donnelly, 
Dennis York...) ainsi que le nom de code de la machine (Alcuin). Cependant, est ce un hasard ou ce 
fameux sens de l'humour qui a fait que la Rom de la version Française du HP100LX est datée du 14 
Juillet ? 


Pourtant, il semblerait qu’à force de s’amuser ces mêmes personnes ont laissé tomber leur vigilance 
au cours de leur travail. En effet, à mesure que le temps passe, de nombreuses bogues ne cessent 
d’être déclarées sur la HP48. Si la plupart ne sont en fait que des alertes faites par des utilisateurs ne 
comprenant pas le fonctionnement exact de leur machine, il n’en est pas moins vrai que les nouvelles 
HP48 semblent contenir un nombre record de défauts. Bien sûr nous reviendrons en détail sur ce 
problème dans les prochains JPC, après que nous ayons fait le tri dans tous les reports que nous 
avons recus de France et de l'étranger. Si en avez trouvé quelques unes, ou plus, que vous avez décidé 
de faire de leur recherche un nouveau sport, faites nous en profiter ! Et qui sait ? Vous risquez bien 
de trouver une bogue permettant de soulever un rideau tel que celui qui nous a permis d’accéder à la 
légendaire programmation synthétique de la HP-41 ! 


Plus sérieusement vous pouvez constater que ce journal est un peu plus épais que d’habitude. Cela est 
dû principalement à la présence de trois articles particulièrement étoffés. Deux d’entre eux devraient 
plaire à ceux qui nous accusent de faire trop d”'élitisme", puisqu'ils sont totalement écrits en RPL. 
Que les autres ne s'inquiètent pas, l’assembleur Saturn devrait sans nul doute être beaucoup plus 
présent dans le prochain JPC ! Cependant, de la même façon que ce journal n’aurait probablement 
pas pu paraître aujourd’hui sans le soutien de Paul Jebeily et Jean François Garnier, il ne tient qu’à 
vous pour nous aider à faire paraitre le prochain numéro dès la semaine prochaine, afin de résorber 
notre retard. Mais si, c’est possible ! Enfin, si vous nous envoyez tout de suite vos articles bien sûr... 
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COURRIER DU COEUR 


P. Morganti 

4, rue Marguerite Bervoets 
78280 GUYANCOURT 
Tel : (1) 30 40 79 23 


Vend: 


HP48S : 600 F. 


Sos 


Guy Toublanc 
21, rue Henri Becquerel 
59120 LOOS-LES-LILLE 


Mon problème: 


j'ai une carte d’extension mémoire TDS pour 
HP48SX de 512 Ko donc partitionnable en quatre 
bancs de 128 K. Actuellement trois bancs seulement 
sur quatre sont utilisables. J’ai tout essayé : vidage 
complet de tous les objets de la cartes puis 
rechargement, réinitialisation complète de la carte 
après l’avoir laissée sans pile pendant deux semaines. 
C’est en vain car il y a ou refus de stocker les objets 
ou non conservation de ceux-ci dans le quatrième 
banc. Qui a eu ce problème (peut-être aussi avec une 
carte de 256 Ko) et a trouvé une solution soit 
logicielle ou matérielle ? 


P. Morganti 

4, rue Margucrite Bervoets 
78280 GUYANCOURT 
Tel : (1) 30 40 79 23 


Cherche : 


Tous programmes d’électronique pour HP48. 

















HP28 


G. Toublanc 
P. Jebeily 


Désactivation de l’écran 
Graphismes et animations 


Le coin des codes 
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ECRAN MINIMAL 


L'apparition des fonctions ECRON et ECROFF dans 
larticle suivant me permet d’en profiter pour en 
apporter des versions améliorées. Rapelons que ces 
fonctions sont apparues des le livre Voyage au centre 
de la HP28 (page 240). 


ECROFF permet d’éteindre l'écran sans interrompre un 
programme. L'affichage doit être rétabli par ECRON 
avant la fin du programme. Ceci économise les piles 
lors de l'exécution de programmes longs dans leur 
déroulement ou par exemple lors des transferts 
d'objets HP28 <-> PC ou de tout type de 
transmission de données avec des périphériques ce 
qui est assez gourmand en énergie. 


Le principe est de modifier le quartet en # FFFO3h et 
représentant l’état de l'écran. Pour cela il y deux 
possibilités : faire un POKkE à cette adresse ou faire la 
modification par un programme en langage machine 
(assembleur). Ce sont ces deux solutions qui sont 
exposées dans le livre cité et qui coûtent pour chaque 
programme : 


36,5 octets avec le POkE 
19,5 octets avec l’assembleur 


Il existe une meilleure solution car plus économe en 
mémoire : Putilisation des deux programmes en Rom 
qui font cela. Les voici désassemblés : 


Pour éteindre l'écran c’est le programme d’adresse 
# 01023h: 

01023 cdiex 00fd8 
rstk=c 
gosub 
c=rstk 
di=c 
a=datO à 
do=do+ 5 


pe=(a) 


00fd8 
00131 





dati=c 1 
rtncc 


Pour allumer l'écran c’est le programme d’adresse 


# 01011h : 

01011  cdiex 00fbb 
rstk=c 
gosub  00fbb 
goto 01031 
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Donc il suffit d'utiliser ces deux routines pour 
constituer deux mini-programmes de 7,5 octets, ce qui 
économise 24 octets pour les deux programmes. 


Il n’est même pas besoin de mettre les codes dans la 
rubrique habituelle. 


ECROFF 
7,5 octets cksum # AF07h 


7éc2 0320 1009 F20 


ECRON 
7,5 octets cksum # 6D5Eh 


76C2 0110 1009 F20 


Donc ces deux programmes devront être utilisés par 
paire dans un programme sinon après ECROFF il faut 
faire un arrêt système faisant perdre tout ce qui est 
sur la pile. 


« ECROFF . ECRON » 





Pour les champions de l’anti-sèche il est possible de 
se faire des programmes qui efface l'écran lors du 
passage du prof et permettent de poursuivre 
normalement l'utilisation de l’anti-sèche après. 
Comme je suis côté prof je ne vais pas plus loin dans 
mes suggestions ! 


Guy Toublanc (276) 


GRAPHIQUES ET ANIMATIONS 
SUR HP28S 


Le graphique sur HP28S est limité par la taille de 
lécran (quoi que..: je vous proposerai la prochaine 
fois la preuve du contraire), mais surtout par la 
lenteur du traçage. A moins d’avoir recours au 
language machine et au talent de Guy Toublanc (que 
je salue amicalement), programmer en RPL demande 
de la patience avant d’aboutir au résultat graphique 
attendu, ou inatendu !! Mais la surprise est souvent 
agréable et récompense largement le temps passé. 


Voici donc quelques petits et simples programmes 
d'application graphique : ceux du registre 
€ HOME GRAPH } permettent quelques convertions utiles 
pour le traitement d'images; ceux du registre 
€ HOME GRAPH OBJETS } permettent de créer quelques 
animations avec des objets géométrique simples : 











cercles,  ellipses, carrés, rectangles  polygones 
circulaires ou elliptiques, tracés en lignes, points ou 
surface, avec diverses méthodes. En répertoire 
{HOME } se trouvent quelques utilitaires généraux, 
nécessaires au bon déroulement des autres 
applications plus spécifiques. 


Chemin { HOME } 


WAITK 
Retourne la chaine de la touche précédente après 
attente de l’appui de celle ci. 
Sortie 
1: "Chaine de la touche enfoncée" 


« DO UNTIL KEY END » 


MENUER 
Exécution d’un menu personalisé dont on a défini, 
dans deux listes, les routines à évaluer pour chaque 
touche de clavier pressées. 
Entrées 

4: { Liste d’objets programmes } 

3: { "Liste" "des" "touches" "définies" "dans" "le" 
"même" "ordre" } 
chaine graphique à afficher en menu" 
1: "chaine graphique à afficher lors de l'appui sur 

une touche non définie. 





« 
+ Ltch imenu îmerr 
« DO imenu -LCD Ltch MAITK POS DUP UNTIL 


CRE 
« imerr -LCD 250 .3 BEEP » IFTE 
END 


GET EVAL CLMF 


OFF 

Mise en arrêt de la machine de la machine jusqu’à 
appui sur [ON] : la machine reprend là ou elle s’était 
arrêtée. 


« # 18E58h SYSEVAL » 


LSTX 

Traite tous les objets d’une liste avec le même 
programme en pile. 

Entrées : 

3: { liste d'objets divers } 

2: Taille de la liste : nt (algébrique) 

1: Programme ou autre objet évalué sur chaque 
objet de la liste, dans l'ordre croissant si nl > 0, 
dans l’ordre inverse sinon. 

« 
+ Lst nl prg 
«inin0< 


« ABS SWAP » 
IFT 
FOR i 
Lst à GET prg 
IFERR EVAL THEN 
DROP 
END 
nl SIGN STEP 


PAUSE 
Attend l'appui sur clavier. 
« WAITK DROP » 


SWPCH 
Remplace un morceau de la chaîne 1 par la chaîne 2 à 
partir de la position du pè"® caractère de la chaine 1. 
Entrées : 

3: "Chaine 1 à modifier" 

2: "Chaine 2 à supperposer" 

1: Position p (entier >0 ou <0) 
Sorties 

1: "Chaine 1 modifiée" 
Remarquons que la chaîne modifiée peut être de 
taille supérieure à la taille initiale de la chaine 1, si 
[i+[taille chaine 1[-p| > [taille chaine 2] pour 
p>0, et le sera toujours si p<0 (sauf si la chaine 2 est 
vide). 


« 


- ch1 ch2 p 
« ch1 SIZE ch2 SIZE + s1 s2 
«p1> 
« ch1 0 p 1 - SUB » 
eu » 


IFTE ch2 + chi p s2 + s1 SUB + 


UP 
Permet de revenir au niveau de répertoire supérieur 
(vers HOME), et affiche le path actuel dans le menu 
CUSTOM. 
« 

PATH + p 

« p MENU p DUP SIZE 1 - 1 MAX GET EVAL 23 MENU » 


Chemin { HOME GRAPH } 
VARS : 


€ PBLKBIN POINT? PXBAR XY-P.N P.N-XY 
XY-C137L4N C137L4N-XY P-137L4 
137L4-P COLI-PE PE-COLI COLI-PO5 
RDZXY PPAR } 
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Notations utilisées pour la recherche de la position du 
pixel sur l'écran : 

- (X,Y) est point de l’écran de PPAR. 
-(P,N):P=Position du caractère de la chaine 
graphique de 548 octets (137*4). N= Position du pixel 
dans ce caractère. 

- (C,L,N) C= Position de la colonne (équivalent à X). 
L=Position de la ligne, parmi 4, de 1 à 4 de haut en 
bas. N=(8-hauteur) du pixel de l’octet du caractère 
positionné en (C;L) de la chaine graphique. 


XY-P.N 

Convertit des coordonées XY en position dans la 
chaine graphique. 

Entrées : 

2:xe[1.137] 

1:ye[1.32] 
Sorties 

2: P e [1.548] 

1Nef1.8] 
« XY-+C137L4N 3 ROLLD C137L4-P SWAP » 


PN-XY 
Fonction réciproque à XY-P.N. 
Entrées 
2: P e [1.548] 
LNef1.8] 
Sorties 
2:xe[1.137] 
1 ye[1.32] 
« 
+ cpn 
« cp P-C137L4 n C137L4N-XY » 
» 


XY-C137L4N 
Convertit des coordonées XY en position dans la 
chaine graphique. 
Entrées 
2:xe [1.137] 
Lye[1.32] 
Sorties 
3: Ce[1.137] 
2: Le [1.4] 
LNe[1.8] 
« 
x y 
«x 4 y 8 / IP - y 8 MOD O == + 9 y 8 MOD DUP 0 == 
8 * - - 8 MOD DUP 0 == 8 * + 
» 


» 


C137L4N-XY 
Fonction réciproque à XY-C137L4N. 
Entrées 

3: Ce [1.137] 

2: Le[1.4] 

1Nel18] 


Sorties 
2:xe[1.137] 
lye[1.32] 
+eln 
«c4l-8*9+n-» 


P-C137L4 
Conversion du n° de position du caractère de la 
chaine graphique en n° de colonne et n° de ligne. 
Entrées 

1: P e [1.548] 
Sorties 

2:Ce[1.137] 

1:Le[1.4] 
« 

+ cp 

« cp 137 MOD DUP 0 == 137 * + cp 137 / IP 

cp 137 MOD 0 # + 
» 


C137L4-P 
Fonction réciproque de P-C137L4. 
Entrées 
2 Ce[1.137] 
1:Le[1.4] 
Sorties 
1: P e[1..548] 
« 
-cetl 
«l1-137*c+» 
» 


COLI-PE 
Conversion des coordonées en mode "texte". 
Entrées 
2: Co e[1..23] 
1: Lie [1.4] 
Sorties 
1: Pe e [1.92] 
«+ co Li (Li-1)*23+co! » 


PE-COLI 
Fonction réciproque à COLI-PE. 
Entrées 
1: Pe e [1.92] 
Sorties 
2: Coe[1..23] 
1: Lie[1.4] 
« 
#P 
« p 23 MOD DUP O0 == 23 * + p 23 / IP 
p 23 MOD 0 # + 


» 











COLI-P05 
Conversion de coordonnées "Textes" en position 
graphiques sur la chaine graphique de l’écran (utile 
pour récupérer la chaine graphique d’un caractère 
affiché en position (Co.Li). 
Entrées 

2: Coe [1.23] 

1: Lie [1.4] 
Sorties 

2: Pl e [1.544] 

1: P2 e [1.548] 
« 

+ co li 

« co Li COLI-PE 6 * Li 1 - - 

SWAP co 23 == - 


DUP 5 - 


RDZXY 
Donne un nombre entier aléatoire ’7 compris entre 
deux nombres ** et ’y entiers. 
Entrées 
2: x (entier) 
1: y (entier) 
Sorties 
1:z (entier) 
« 
DUP2 SWAP - + x y d 
«d0#*# 
«x y MIN d ABS RAND * .5 + IP + » 
« x RAND .5 + IP * » 
IFTE 


PPAR 
€ «1,12 (137,32) X 1 (0,0) 3 


XY-CARCL 
Conversion de format Ecran Graphique (xy) en 
format Ecran Texte (Colonne, Ligne). 
Entrées : 
2 X e[1.137] 
1: Ye [1.32] 
Sorties 
2: Coe [1.23] 
1: Lie [1.4] 
« 
+ XY 
« X DUP O > * DUP NOT + DUP 137 < * DUP O == 
138 * + 6 / CEIL 5 Y DUP O > * DUP NOT + DUP 32 
£ * DUP 0 == 32 * + 8 / CEIL - 


POINT? 
Teste la présence d’un point de coordonées (x,y) sur 
Pécran de PPAR=€(1,1) (137,32)... 





Entrées : 
2: X e [1.137] 
1: Ye[1.32] 
Sorties 
1:Oou1 
« 
XY-P.N LCD+ + pn imO 
« im p p SUB NUM BIN R-B 2 n 1 - * / DUP 
2/2*-8B-R 


PXBAR 
Affiche à l'écran la colonne graphique (haute de 8 
pixels, large de 1) codée par son nombre binaire 
équivalent, à la position (colonne,ligne) de l'écran. 
Entrées : 

3: Bin : #...b 

2:Cef1.137] 

1:Le[1.4] 

C137L4-P LCD+ + bin p str 

« str bin BR CHR p SPHCH LCD » 


» 


Path : { HOME GRAPH OBJETS } 


VARS : 

€ LIMG ROTIMG FAMROT DELLIPS ELLIPS DCERCL CERCL 
EPOLYG POLYG RECTG CARRE VERTIC HORIZ SEGMT LELLIPS 
PELLIPS LCERCL PCERCL PPOLYG PEPOLYG LBLOK PRECT DSURF 
PARL PARP PAS PPAR ZPAR JDAT EQ LPGROT STP.W 

PHAIT LICHROT TEST INIT } 


INIT 

Initialise les modes nécessaires aux application de ce 
répertoire OBJETS. Il met aussi PMAIT à une valeur 
rapide pour ROTIMG. 

Ce programme est à exécuter en premier : il fixe les 
divers modes. 


-01 ’PWAIT! STO 2 FIX 31 SF 35 CF 36 SF 59 CF 
RAD 64 CF 


ROTIMG 
Anime les images de la liste en pile, à la cadence 
choisie interactivement par l'utilisateur au cours du 
déroulement du programme, en appuyant sur les 
touches définies par LTCHROT. 
Entrées : 

1: { Liste d'images graphiques } 
« 

DUP SIZE DUP 0 == 

« DROP2 ABORT » 

IFT- st nl 
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« DO 
Lst nl PWAIT SIGN DUP O == + * 
« LCD PWAIT ABS WAIT » 
LSTX 
UNTIL KEY 
« 
LTCHROT SWAP POS DUP O == + LPGROT SWAP GET 
EVAL 
» IFT 0 
END 


FAMIROT 
Trace une famille d'objets graphiques, stocke les 
images dans LIMG et lance l'animation avec ROTIMG 
(voir son fonctionnement dans TEST1 et TEST2). 
Entrées : 
4: Objet-Programme 
3: { Liste des paramètres graphiques } 
2: Le Pas d’incrémentation numérique 
1: Nombre d’images à tracer 
« 
SMAP DUP DUP ABS / ROT ABS * LCD-+ - 
obj Lparam pang n imO 
«{3n0# 
«n SIGN n 
FOR i 
Lparam LIST+ DROP pang i * obj EVAL LCD+ 
+ im0 LCD-+ 880 .1 BEEP 
n SIGN STEP 
» 
IFT DUP /LIMG’ STOP ROTIMG 


FAM2ROT 
Identique à FAMIROT mais utilise les programmes 
suplémentaires d'économie de temps SPEED et de piles 
(EcRoN et EcROFF) du livre de Sébastien Lalande et Paul 
Courbis Voyage au Centre de la HP28C/S. (Le SPEED 
de Guy Toublanc est équivalent, et la taille est plus 
courte). 
NDLR : Voir l'article précédent pour ECRON/ECROFF et le Coin 
des Codes pour SPEED. 
Entrées : 

4: Objet-Programme 

3: { Liste des paramètres graphiques } 
Le Pas d’incrémentation numérique 
: Nombre d’images à tracer 





ECROFF ’LIMG’ PURGE SPEED FAMIROT ECRON 
220 .1 BEEP 880 .1 BEEP 440 .1 BEEP OFF 


LGPROT 
C’est la liste des programmes de définition de chaque 
touche correspondante du clavier, en paralèlle (mêm 





— JPC 90 Page 8 


ordre, même nombre) avec la liste de touche LTCHROT. 
LGPROT est utilisé par ROTIMG. Vous pouvez définir 
d’autres touches, à condition bien sûr de faire 
correspondre à chaque programme introduit à la pè"® 
position dans LGPROT la chaîne de caractère de la 
touche à introduire à la même pê" position dans la 
liste LTCHROT. Si vous ne connaissait pas le nom de la 
touche, exécutez WA1TK... Je signale tout de même que 
la 1è" position est réservée au traitement des erreurs. 
Ainsi, les touches 10] à 191 donnent un temps (en 10° 
de secondes) à stp.u. Pour rendre effectif la valeur 
sTP.W de temps d’arrêt entre chaque image on tape 
t=1. La touche [.1 divise par 10 stP.u (non effectif, 
donc cummulable). Les touches [+11-11*10/1 
changent directement le temps d’arrêt effectif, d’après 
la valeur STP.W actuelle. (CHS] inverse le sens de 
rotation des images. 1s] pour SPEED, ta] pour 
quitter. 10] pour OFF de la machine (et reprise du 
programme après un [ON]). 


€ 
« 220 .1 BEEP 440 .1 BEEP 220 .1 BEEP » 
« .001 ’STP.W’ STO » 
« .1 !STP.W' STO » 
«.2 'STP.W' STO » 
«.3  !STP.W STO » 
«4  'STP.W' STO » 


«.5  !STP.W STO » 
«.6 'STP.W' STO » 
ISTP.W' STO » 
«.8 'STP.W’ STO » 
«9  *STP.W' STO » 
ISTP.W' 10 STO/ » 
STP.W 'PHAIT' STO » 
STP.W 'PNAIT! STO+ » 
TPWAIT' STP.W STO- » 
STP.W ’PMAIT! STO* » 
lPMAIT! STP.W STO/ » 
« PMAIT NEG ‘PHAIT’ STO » 
« SPEED » 

« CLEAR ABORT » 

< OFF » 


LTCHROT 
C’est la liste précédement définie, utilisée par ROTIMG 
(La première chaîne "ERRoR" est réservée au 
traitement des erreurs dûes à l’appui sur des touches 
non définies. 


€ 
Mes Mo Mme sante en ares fon 
Dee Gta froide mie MCE Sd er (eg 

3 

STP.W (variable) 

001 











PWAIT (variable) 
-001 


DELLIPS 
Trace une ellipse par la fonction DRAy. 
Entrées : 
4: Abscisse du centre de l’ellipse 
3: Ordonnée du centre de l’ellipse 
2: Demi largeur 
1: Demi hauteur 
« 
+abrxry 
«1'X a - rx / SQ - 7 ry * DUP b + SWAP NEG b 
+ = STEQ DRAW 


» 
ELLIPS 
Trace une ellipse en 36 segments. 
Entrées : 

Voir DELLIPS 
« 

+abrxry 

« a b rx ry 36 EPOLYG » 


» 


DCERCL 
Trace un cerle avec DRAW. 
Entrées : 
3: Abscisse du centre du cercle 
2: Ordonnée du centre du cercle 
1: Centre du cercle 
« 
-abr 
«r SQ ’X' a - SQ - /7 DUP b + SWAP NEG 
b+ = STEQ DRAW 


CERCL 
Trace un cerle "continu". 
Entrées : 
Voir DCERCL 
« 
.5n/OVER/6*-+abrp 
«IF r 0 # THEN 
art! COS * +b rt SIN * + O 2 x * p PARP 
ELSE 
a b R-C PIXEL 
END 


EPOLYG 

Trace un polygone elliptique. On peut rajouter après 
les 5 paramètres nécessaires, un paramètre facultatif : 
un angle de déphasage à lorigine (utilisé en 
animation pour faire des rotations successives). 





Entrées : 
5: Abscisse du centre du polygone 
4: Ordonnée du centre du polygone 
3: Demi largeur 
2: Demi hauteur 
1: Nombre d’arrêtes 
0: Facultativement : la phase à l’origine (en radians) 
« 
DEPTH 5 == 
«0» 
IFT 4 PICK 3 PICK * O # * + a b rx ry n offt 
«IF n 0 # THEN 
1F rx ry + 0 # THEN 
a rx 't" offt + COS * + b ry 't' offt + SIN * + 
027 * DUP n / PARL 
ELSE 
a bR-C PIXEL 
END 
END 


POLYG 
Trace un polygone (inscrit dans un cercle -non tracé- 
de rayon r). 
Entrées : 
4: Abscisse du centre du polygone 
3: Ordonnée du centre du polygone 
2: Rayon extérieur du polygone 
1: Nombre d’arrêtes 
0: Facultativement : la phase à l’origine (en radians) 


« 
DEPTH 4 == 
«0» 
IFT+abranofft 
« IF n 0 # THEN 
1F r O0 # THEN 
art" offt n 2 MOD 1 + * + COS * + br't' 
offt + SIN * + 0 2 x * DUP n / PARL 
ELSE 
a bR-C PIXEL 
END 
END 


RECTG 
Trace un rectangle (inscrit dans une ellipse de rayons 
rx et ry. 
Entrées : 
4: Abscisse du centre du rectangle 
3: Ordonnée du centre du rectangle 
2: Demi largeur elliptique 
1: Demi hauteur elliptique 


« SWAP 2 /7 * SWAP 2 JT * 4 x 4 / EPOLYG » 
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CARRE 
Trace un carré (inscrit dans un cercle -non tracé- de 
rayons r. 
Entrées : 
3: Abscisse du centre du rectangle 
2: Ordonnée du centre du rectangle 
1: Rayon circulaire externe 
«2 *4n4 y POLYG» 


VERTIC 
Trace un segment vertical entre les points (ly1) et 
(Ly2). 
Entrées : 
3: Ordonnée de départ 
2: Ordonnée d’arrivée 
1: Abscisse fixe 
« 
2x 
«y1 2 
IF DUP2 # THEN 
FOR y 
U y RC PIXEL 
y2 y1 - SIGN STEP 
ELSE 
DROP Li SWAP R-C PIXEL 
END 


HORIZ 
Trace un segment horizontal entre les points (x1,h) et 
G2,h). 
Entrées : 
3: Abscisse de départ 
2: Abscisse d'arrivée 
1: Ordonnée fixe 
« 
+ x1x2h1 
« x1 x2 
IF DUP2 # THEN 
FOR x 
x h1 R-C PIXEL 
x2 x1 - SIGN STEP 
ELSE 
DROP hi R-C PIXEL 
END 


SEGMT 
Ce programme trace un segment entre deux points. 
La présence de PPaR est obligatoire. C’est la version 
LINE” de J.M. Ferrard de son livre La maitrise de la 
HP28$, T1, 3eme édition. 
Entrées : 

2: (x1,y1) 

1: (22) 





IF DUP2 == THEN 
PIXEL 
ELSE 
OVER - DUP C-R PPAR LIST+ 4 DROPN - 
C-R ROT 32 * SWAP / ABS 3 ROLLD / 137 * ABS 
MAX INV PPAR 4 GET * + v pas 
«01 
FOR k 
DUP V k * + PIXEL 
pas STEP 
» 
END 
DROP 


PELLIPS 
Trace une ellipse pleine, par le tracé des ellipses 
successivement concentriques. 
Entrées : 
Voir DELLIPS 
-xyab 
« 0 a b MIN 
FOR u 
xyau-bu- ELLIPS 
NEXT 


LELLIPS 
Trace une ellipse pleine, avec un remplissage segment 
par segment : plus rapide ! 
Entrées : 

Voir DELLIPS 
« 

+abrxry 

«1x a - rx / SQ - /° ry * DUP b + SWAP 

NEG b+ a rx - a rx + DSURF 


LCERCL 
Trace un disque, avec un remplissage du même type 
que LELLIPSE : rapide. 
Entrées : 
3: Abscisse du centre du disque 
2: Ordonnée du centre du disque 
1: Centre du disque 
+abr 
«r SQ ‘x’ a - Sa - / DUP b + SWAP NEG 
b+ar-ar + DSURF 
» 


» 











PCERCL 
Trace un disque, par un tracé successif de cercles 
concentriques (simple, mais lent !). : 
Entrées : 
Voir LCERCL 
« 
+xya 
«0a 
FOR u 
xyau- CERCL 
NEXT 


PPOLYG 
Trace un polygone plein, par un tracé successif de 
polygones. on peut rajouter en dernier lieu un 
déphasage en radians. 
Entrées : 
Voir POLYG 
« 
DEPTH 4 == 
«0» 
IFT-+xyrnofft 
«0r 
FOR u 
Xyru-nofft POLYG 
NEXT 


PEPOLYG 
Comme PPOLYG, mais cette fous-ci : polygoone 
elliptique (plein). Là aussi, on peut introduire un 
déphasage en radians. 
Entrées : 

5: Abscisse du centre du polygone 

4: Ordonnée du centre du polygone 

3: Rayon en abscisse de l’ellipse externe au polygone. 


2: Rayon en ordonnée de l’ellipse externe au polygone. 


1: Nombre d’arrêtes 
0: Facultativement : la phase à l’origine (en radians) 
« 
DEPTH 5 == 
«0» 
IFT+xyabnofft 
« 0 a b MIN 
FOR u 
xyau-bu-nofft EPOLYG 
NEXT 


LBLOK 
Trace un bloc (ou rectangle plein) avec des segments 
horizontaux ou verticaux (le choix fait gagner du 
temps). 





Entrées : 
4: Abscisse du coin inférieur gauche 
3: Ordonnée du coin inférieur gauche 
2: Largeur 
1: Hauteur 


« 
DUP2 2x yabfl 
«0 
1F fl THEN 
b1- 
FOR u 
uxxa+1-yu+ HORIZ 
NEXT 
ELSE 
sT- 
FOR u 
uyyb+1-xu+ VERTIC 
NEXT 
END 


PRECT 
Trace un rectangle plein, par une succession de 
rectangles concentriques. 
Entrées : 
4: Abscisse du centre du rectangle 
3: Ordonnée du centre du rectangle 
2: Demi largeur elliptique externe 
1: Demi hauteur elliptique externe 
« 
-xyab 
«0 a b MIN 
FOR u 
xyau-bu- RECTG 
NEXT 


DSURF 
Trace une surface entre 2 fonctions : f(x) +g{x) =0. 
Entrées : 
4: Equation cartésienne f(x) 
3: Equation cartésienne g(x) (généralement -{(x)) 
2: Abscisse de départ 
1: Abscisse d’arrivée 
« 
+ eq neq d f 
«df 
FOR z 
z 1x" STO neq EVAL eq EVAL x VERTIC 
NEXT 
1x1 PURGE 
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PARL 
Trace une fonction paramètrique par des segments 
(ou lignes) f(x(t), y(t)). 
Entrées : 
5: Equation paramétrique x(t) 
4: Equation paramétrique y(t) 
3: Début du paramètre * 
2: Fin du paramètre * 
1: Pas d’incrémentation de © 
« 
0 + xt yt deb fin pas old 
« deb -NUM fin pas + NUM 
FOR i 
it" sTo 
IFERR 
xt EVAL RDN yt EVAL RDN R-C 
IF DUP old # i deb # AND THEN 
old OVER SEGMT 
END 
fold' STO 
THEN 
CLEAR 
END 
IF KEY THEN 
DROP fin pas + -NUM ’i’ STO 
END 
pas STEP 
ft' PURGE 


PARP 
Trace la fonction paramétrique, point par point 
ÉG(L);y(D). 
Entrées : 
Voir PARL 
« 
3 ROLLD DUP 2 > 
< SHAP » 
IFT NUM + x ypdf 
« d NUM ’t' STO 
po 
x EVAL y EVAL R-C PIXEL p ’t' STO+ 
UNTIL 
t f -NUM > KEY 
« DROP2 1 » 
IFT 
END 
1t# PURGE 


PAS 
Calcule la longueur curviligne de la fonction 
paramétrique : 
fit 
s=| /dx2(t)+dy2(t) dt 
Jt0 
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Entrées : 

4: x(t) 

3y0 

2: t0 

it 
Sortie : 

Ls 
« 

.001-xydfe 

«x !t! à SQ y ’t' à sa + 

LIST e J DROP 


Titdf3 


TESTI 
Trace 10 images successives, puis les anime. Sur 
chacune de ces images sont tracés deux polygones : 
un carré et un pentagone. L’un des deux tourne par 
rapport à l’autre immobile. Devinez lequel ! 
« 

« 5 DUPN DROP2 4 O POLYG POLYG » 

€ 69 16 156} 2 x * 11 / 10 CLLCD FAMIROT ROTIMG 


TEST2 
Trace aussi 10 images et les met en animation. Le 
résultat des objets tracés est d’ailleurs affiché en 
exemple sous LIMG. 
A vous de tracer vos animations ! 
« 4 SPEED 5 DUPN 5 DUPN 5 ROLL 30 - 5 ROLLD SWAP 
6 * 2 / NEG POLYG 5 ROLL 30 + 5 ROLLD SWAP DROP 
4 SUAP 6 * 4 / NEG PPOLYG POLYG 
» 
€ 69 1615632n*6/ 11 / 10 CLLCD 
FAMIROT_ ROTIMG 


Paul Jebeily (571) 
une 


+ 


CLR REED O 
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BIG RAM pour GX 


Ceux qui se trouvent à l’étroit avec un maximum de 
288 Ko de Ram pour une HP48SX, ont la possibilité 
d'utiliser les cartes Multiram TDS de 256 Ko et 512 
Ko. Deux de ces cartes de 512 Ko permettent donc 
d'étendre de 1 Mo la Ram des HP48SX mais la 
gestion de cette Ram ne peut se faire que par bancs 
de 128 Ko dont un seul banc est actif à la fois pour les 
librairies et objets qui y sont stockés. 


Pour la HP48GX la solution est différente car le port 
2 est le seul à pouvoir recevoir une carte de plus de 
128 Ko qui ne sera pas mergeable mais dont la 
capacité maxi est repoussée à 4 Mo. La Ram du port 
2 est partitionnée en bancs de 128 Ko mais qui sont 
tous actifs grâce à la technique dite de bank-switching. 
Ainsi avec une carte de 1 Mo en faisant [LIBRARY] 
{PORTS] on pourra avoir les deux cas de figure : 


- Sans carte dans le port 1 : 


105525297009; 
- Avec une carte dans le port 1 : 
20: : É 


Et on peut faire :n:T0T0 RCL pour rappeler l’objet ToTo 
du banc n (#7 pouvant avoir ici la valeur 2 à 9 pour le 
port 2). De même une librairie, stockée dans le banc 
n sera active. 


Comment se présente ce type de carte ? 


Je ne connais actuellement que la carte de 1 Méga 
octets et diffusée par HP : 


HP 82216A 1-MB RAM Card 


On pouvait se la procurer, en France, pour 2690 
francs, quand je l’ai achetée. 


Extérieurement elle se présente comme les autres 
cartes HP, auxquelles nous sommes habitués, si ce 
n’est que sa couleur est passée du gris souris au vert 
intense. Donc cette carte se partitionne en 8 bancs de 
128 Ko qui ne sont pas mergeables. La possibilité de 
verrouillage existe toujours et permet de protéger 
cette Ram en devenant Rom. La HP48GX sait gérer 
ces bancs ce qui leur permet d’être actifs à tout 
moment contrairement à ce qui se passait avec les 
cartes TDS pour HP48SX dont un seul banc par port 
n’était actif. La commande PINIT doit être appelée 
pour initialiser tous les ports actifs. Celle-ci n’affecte 
pas ce qui est déjà stocké et d’après le manuel de 
référence des HP48G(X) cela se fait en stockant et 
purgeant un objet dans chacun des bancs accessibles. 





J'ai une HP48GX version M et si j'ai par exemple des 
objets quelconques et des librairies dans les bancs 2 et 
3, tout cela ne posant pas de problèmes car utilisables 
comme sur une HP48SX, jai pu constater des 
incompatibilités avec des librairies fonctionnant 
normalement en ports 0 et 1 mais non dans les ports 
suivants. Des rumeurs font état que PINIT et STo 
seraient boguées et qu’il existerait aux USA des 
programmes de remplacement. 


Une anomalie assez bizarre : 


Une librairie, qui travaille à adresse fixe et ne peut se 
mettre que dans le port 1, fait usage d’une table 
contenue dans une chaîne. Cette table étant aussi 
dans le port 1 j’en ai fait une copie sous le même nom 
dans le port 3. Il en est résulté que la librairie ne 
fonctionnait plus jusqu’à ce que je purge ou renomme 
cette table du port 3. Il y a un mystère que je n’ai pu 
élucider. Quelqu’un a peut-être une explication ? 


La documentation accompagnant cette carte est plus 
que réduite puisque inexistante. il est indiqué sur la 
boite emballage qu’une carte d'installation est 
contenue dans le coffret, or il n’en est rien. Il y a chez 
HP depuis la sortie des séries G des choses 
déroutantes. 


Malgré toutes ces lacunes et manques d’information 
cette carte me rend service et est plus pratique que 
les cartes Multiram pour HP48SX. 


Une affaire à suivre... 


Guy Toublanc (276) 


PROGRAMME BIZARRE 
ET DERIVES LITTERAIRES 


Les éditions du livre Au centre de la HP48 se suivent 
mais se ressemblent par la conservation de 
programmes qui ne sont pas des modèles du genre. 


Dans la dernière édition, que l’on peut considérer 
comme la quatrième pour une grande partie de cet 
ouvrage, on trouve le programme R-a/ (page 402) qui 
est le même que celui de la troisième édition (page 
358), donc en principe devrait être sans gros défauts. 














Ce programme est sensé transformer un réel en une 
fraction rationnelle ou en racine d’une fraction 
rationnelle, et ne fait que 213,5 octets donc peut se 
vérifier facilement. 


Un rapide examen du listing laisse apparaître des 
défauts de forme évidents : 


- 3 niveaux de [1F THEN ELSE] qui sont à remplacer par 
Pinstruction [CASE] car cela est plus clair et moins 
octivore: 








CASE THEN END 
THEN END 

THEN END 

Fe END 








au lieu de la vieille programmation type HP-28 qui est 
encore utilisée très souvent dans ce livre pour HP-48: 





Evidemment cette dernière solution est une aubaine 
pour gonfler un livre volumineux en apparence. 


-2 variables locales créées mais non utilisées par le 
programme (x et xx). Serait-ce un travail inachevé? 


Après la forme passons au fond qui pose de graves 
problèmes. Si les 2 exemples donnés: 


10.5 R-Q/ + 21/2 
3.49284983931 R-Q/ + ‘/(61/5) 


sont irréprochables il n’en est plus de même pour les 
cas suivants : 
-10.5 R-Q/ + SWAP Error: 
Too Few Arguments 
‘21/2' 


-3.49284983931 R-Q/ + SWAP Error: 
Too Few Arguments 


12148665/615161" 


Réponses incongrues données pour tout argument 
négatif. 


J2 R-Q/ + !/200000000001/ 


100000000001 
Bizarre! alors que -Q + ’941664/665857' en mode STD 
45 R-a/ - 5 
encore plus bizarre mais totalement absurde! 


Visiblement ce programme a été inclus très à la 
légère dans l'ouvrage et ce n’est pas sérieux pour une 
réédition qui ne devrait plus laisser place à de telles 
erreurs. 


Je sais très bien qu’en matière d’approximation de 
réels par des rationnels le problème n’est pas des plus 
simples et qu’il n'existe pas de solution idéale pour 
tous les cas de figure qui dépendent, comme pour 
tout calcul numérique, de la précision de la machine 
et des arrondis. 


exemple : 


999997993279 1/X 1/X + 
999997993270 1/X 1/X - 


999997993274 
999997993274 


Je signale, pour la petite histoire, que lors de la 
création de la fonction en assembleur FRACS et pour 
HP-71 (JPC mars 87) j'avais innové par rapport à ce 
qui se faisait à cette époque. En effet tous les 
programmes imposaient une précision absolue ce qui 
donne des résultats parfois illogiques. Par exemple 
pour une précision de 10% on obtient sur HP48 en 6 
FIX avec -Q : 


4.000001 - 4000001/1000000 
3.999999 + 4000003/1000001 
4.0000003 - 4 


alors que logiquement on devrait obtenir 3 fois 4 pour 
la précision demandée. 


Ma fonctions permettait de calculer en mode par 
défaut avec une précision relative fonction du nombre 
à approximer et permettant d'obtenir des résultats 
cohérents. Une option pouvait imposer une précision 
absolue qui donnait 3 réponse égales à 4 pour 
Fexemple ci-dessus Une fonction donc plus 
sophistiquée que -a de nos HP48. 
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Parmi différents algorithmes celui des réduites de 
fractions continues semble être le plus fiable dans ce 
domaine et si certains bénéficient de la simplicité ils 
sont d’un portée plus limitée. Par exemple Sébastien 
Lalande publia dans un JPC de juillet 88 un 
programme -+FRACTION pouvant donner des résultats 
aberrants hors de la fourchette 1E4 1E-3. C’est ce 
même programme qui fut repris dans Au centre de la 
HP28. 


Pour remédier aux lacunes du programme R-0/ je 
vous propose deux programmes épurés des défauts 
cités ci-dessus. Malgré les améliorations ils sont plus 
courts (145.5 et 182 octets contre 213.5) et peuvent 
être corrigés gratuitement si nécessaire. 


Le premier renvoie un rationnel pour la racine carrée 
d’un nombre entier: 


J2 R-a/ - 
-/5 R-a/ - 


1114243/80782' 
1-(219602/98209)’ 


R-Q/1 
145.5 octets cksum # 950Dh 


« 10 FIX DUP SIGN SWAP ABS DUP -Q 
CASE DUP TYPE 9 # 
THEN END 
SWAP SQ -Q DUP TYPE 9 # 
THEN SWAP END 
DUP OBJ+ DROP2 SWAP DROP / 3 PICK 
OBJ+ DROP2 SWAP DROP > 
THEN SWAP END 
J 
END SWAP DROP * STD 


Le principe du programme est simple: 


si -Q renvoie un réel on en reste là avec N 
si -a renvoie une expression algébrique ’nil/dir alors 
on teste si -a(N?) renvoie une expression algébrique 
’ni2\di2 
si non on garde ’nil/dil” 
si oui on teste si /ni2 > n/d 
si oui on garde ’nil/dil” 
si non on prend ”/(ni2/di2y 


Le second sait renvoyer la racine d’un entier pour la 
racine carrée d’un nombre entier: 


J2 R-Q/ + Je 
-J5 R-a/ + !-/51 


R-Q/2 
182 octets cksum # 7FC9h 


« 10 FIX DUP SIGN SUAP ABS DUP -Q 
CASE DUP TYPE 9 # 
THEN END 
SHAP SQ -Q DUP TYPE 9 # 
THEN ‘JA’ A! ROT 2 -LIST IMATCH DROP END 
DUP OBJ+ DROP2 SWAP DROP / 3 PICK 
OBJ+ DROP2 SWAP DROP > 
THEN SWAP END 
J 
END SWAP DROP * STD 


même principe que ci-dessus mais après le deuxième 
test on fait: 


si non on prend ’/# 





Pour le reste ces deux programmes ont les mêmes 
fonctionnalités que leur inspirateur. 


Donc à vous de choisir. Il est possible d’aller 
beaucoup plus loin dans la solution de ce type de 
problème. Ces programmes restent dans le domaine 
de la simplicité et n’ont pas la prétention de satisfaire 
tout le monde et en particulier les puristes matheux. 


A propos du livre 
Voyage au centre de la HP48 G/GX 


Tout d’abord je signale que cette rapide analyse est 
basée sur un exemplaire que j'ai acheté et qui n’a pas 
été envoyé au club (il y a des principes qui se 
perdent). 


A plusieurs reprises j'ai fait allusion, dans JPC, au 
livre voyage au centre de la HP48 et à celui relatif à la 
HP28. Je recommandais même le premier dans un 
article d'initiation à lassembleur, paru dans le 


numéro 21 de 48Sxtant. 


Qu'en est-il aujourd’hui avec cette 4ème édition 
actualisée pour les HP48G/GX? 


Maintenant, bien que cela était visible depuis 
longtemps, Paul Courbis fait cavalier seul comme 
auteur du livre. 


Le passage de la première à la seconde édition se 
traduisait par la correction de coquilles ainsi que 
l'ajout d’une documentation sur les linked arrays, donc 
très peu de choses nouvelles. A l’époque j'avais trouvé 
assez scandaleux qu’un erratum n’ait pas été glissé 
dans les exemplaires de la première édition car les 
coquilles étaient connues dès les premières semaines 














de la sortie du livre. Ce qui avait été fait pour le livre 
sur la HP28 n’a pas été renouvelé et donc on était en 
régression du côté honnêteté. 


De la première à la troisième édition le livre a grossi 
de 114 pages. Cela est dû principalement à l'ajout de : 
- Une extension du chapitre programmer en langage 
machine avec une tentative d'initiation au langage 
assembleur. 


- Une extension du chapitre Les routines utiles qui ont 
rapport avec l’assembleur. 


- Création du chapitre "Extemnals" utiles dont la grosse 
partie est constituée de listes d'adresses avec 
mnémoniques pas toujours évidents. 


- Création d'environ seize programmes répartis dans 
les différentes catégories. 


Ces rappels concernant l’évolution de l'ouvrage me 
semblaient nécessaires pour faire le point sur la 
quatrième édition et en particulier par rapport à la 
troisième édition. 


Celle-là nous donne un livre encore grossi de 83 
pages qui apparemment devient impressionnant par 
son volume de 601 pages mais … (cf ci-dessous). 


Pour actualiser cette quatrième édition qui est 
devenue le Voyage au centre de la HP48 G/GX il a 
fallu tenir compte des changements apportés par ces 
nouvelles séries de machines : 


- Rom occupant maintenant tout l’espace adressable 
par le micro-processeur c’est-à-dire 512 Ko au lieu de 
256 Ko et donc avec de nouvelles instructions. 


- Ram interne passant de 32 Ko à 128 Ko avec 
adresse de début déplacée de # 70000h à # 80000h. 


- Port 2 pouvant recevoir des cartes d’extension de 
Ram pouvant aller jusque 4 Mo et que la HP-48GX 
sait gérer grâce à la technique du bank-switching. 


Ces modifications ou possibilités nouvelles par 
rapport aux HP-48S(X) nécessitaient donc une mise à 
jour ou création de chapitres. 


En plus des modifications ou ajouts obligatoires les 
apports principaux sont les suivants : 


- 21 nouveaux programmes se répartissant dans les 
différentes catégories. Parmi eux 7 ne sont pas de 
Pauteur. On notera la disparition logique de soLv 
programme recherchant les racines d’un polynome, ce 
dernier étant avantageusement remplacé par la 
nouvelle instruction PROOT. 


- Une liste des librairies standard de la HP48. 


- Une présentation et une liste des clubs HP dans le 
monde. L'auteur de ceci étant Wlodek Mier- 
Jedrzejowicz, le président du club anglais HPCC et 
qu'un certain nombre ont eu le plaisir de faire la 
connaissance en janvier lors de la réunion 
anniversaire de PPC Paris. 


- Enfin un chapître qui faisait toujours défaut dans les 
livres de Paul Courbis et Sébastien Lalande. En effet 
on trouvait dans les livres relatifs aux calculatrices HP 
et au HP71 à la fois références bibliographiques et 
listes de clubs (par exemple dans les livres publiés par 
Jean-Daniel Dodin alors président du club de 
Toulouse ou livres publiés par le président de 
HPCC). D’ailleurs PLC et SL ont fait leurs premières 
armes dans notre club. Donc ici un chapître dans la 
bonne tradition. 


On peut constater que la liste des objets (avec les 
adresses) contenus dans la Rom a disparu par 
enchantement alors que celle des messages a été 
maintenue. Est-ce un oubli ou le temps manquait-il 
pour vérifier cette liste ou manque de place dans le 
livre ? 


En tant que fidèle acheteur des Voyage au centre de la 
HP... (HP28 et 48) j'ai quelques remarques à faire sur 
le contenu du dernier "Voyage". 


Sortir de l'imprimerie, début septembre, un livre sur 
les HP48G/X relevait de la gageure. Evidemment 
que cet ouvrage était attendu avec impatience mais 
peut-être qu’un peu moins de précipitation aurait 
permis de réaliser un livre plus satisfaisant de certains 
points de vue : 


- On aurait aimé avoir un petit aperçu du contenu de 
la nouvelle partie de la Rom. On aurait pu nous dire 
que la carte d'équations a pris place dans la partie la 
plus haute de la Rom et le moyen le plus simple 
d'utiliser certaines routines dans le cas de 
recouvrement de cette partie de Rom par la Ram 
additionnelle. Y a-t-il des choses utiles dans la Rom 
entre # 80000h et # BFFFFh pour le programmeur 
en langage machine? 


- Si les extemals ont enfin été utilisés dans les 
programmes en langage machine (dans la troisième 
édition on était encore à faire DUP DRoP en début de 
programme) ce ne sont pas toujours les plus 
adéquats. Dans ces programmes les entiers système 
en Rom ne sont pas utilisés bien que leurs points 
d'entrée soient supportés par HP. 
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- Un parti pris vis-à-vis de la documentation HP et de 
ses outils de développement qui existent et que 
lauteur ne peut pas ignorer car étant sur la liste 
officielle des développeurs HP, il a plus que la plupart 
de nous des facilités pour accéder à cette 
documentation. Cette attitude peut être considérée 
comme une rétention d'informations. Au lieu des 390 
externals du livre aux mnémoniques souvent peu 
explicites il aurait été préférable d'utiliser ceux de 
chez HP qui sont connus dans le monde entier et 
permettent aux programmeurs, d’un pays à l’autre, de 
se comprendre avec plus de 2300 points d’entrée 
supportés par HP. Grand silence aussi sur les très 
utiles goodies disks où lon peut trouver un bon 
échantillonage (documenté et classé) de ce qui se fait 
hors de l’hexagone. Si dans certains domaines la 
France peut s’énorgueillir d’avoir de très bons 
programmeurs sur HP48, il ne faut pas négliger ce qui 
se fait ailleurs par des gens souvent plus disciplinés 
qui documentent leurs créations. 


- Des programmes à revoir qu’on ne devraient pas 
retrouver sous la même forme d’une édition à la 
suivante. J’en ai donné un exemple flagrant au début 
de cet article. Il y aurait bien d’autres remarques à 
faire, moins graves mais génantes, sur des 
programmes à la fois en assembleur et en User Rpl 
mais je ne peux pas monopoliser ces colonnes avec 
ces problèmes. Je dirais seulement que pour le 
langage machine cet ouvrage est considéré comme 
une référence et en tant que tel les programmes 
peuvent servir de modèles et donc les débutants 
programmeront de la même manière ce qui leur fera 
prendre de mauvaises habitudes. S'il est normal de 
commencer une initiation sans affinements, passé ce 
stade les programmes donnés en exemple ne doivent 
pas avoir de faiblesses de forme. De ce point de vue 
l’auteur ne semble pas avoir fait beaucoup de progrès 
depuis la sortie de Voyage … HP28. Au risque de 
choquer les inconditionnels je pose la question : 
programme-t-il encore beaucoup ? J'ai fait allusion à 
de nouveaux programmes faits par d’autres. Certains 
ont des faiblesses de forme de programmation et je 
me garderai bien de critiquer leurs auteurs qui ont eu 
le grand mérite de faire des choses intéressantes, l’un 
d'eux m'a avoué en toute humilité qu’il requérais 
l'indulgence. Ce que je reproche c’est au professionnel 
de ne pas avoir aidé les auteurs à redresser les 
maladresses ce qui aurait permis au lecteur d’avoir 
des modèles à imiter: 


- Un gonflement excessif du volume du livre par des 
artifices typographiques : 

- Trop de pages avec peu de texte. Voyage au centre 
de la HP28 qui faisait 272 pages atteindrait haut la 
main les 400 pages avec les artifices utilisés dans les 
éditions pour HP48, de même les ouvrages de J.M 
Ferrard pourraient augmenter en volume de 50% en 


utilisant les mêmes techniques. A la place de grands 
blancs on aurait préféré des commentaires pour les 
programmes en User Rpl. 

-- Les chapîtres du début n’ont pas leur place dans un 
ouvrage s’adressant à des lecteurs qui veulent aller 
au-delà de ce que le constructeur met à leur 
disposition. Je ne suis pas le premier à le dire. 


Ce que je retiens de cet ouvrage c’est la partie qui est 
en relation directe avec son titre. Pour le reste il y a 
souvent mieux ailleurs. 


Donc une bonne compilation d’informations, utile et 
nécessaire dans ce domaine car actuellement non 
totalement concurencée ailleurs mais l’auteur qui se 
transforme progressivement en homme d’affaire (qui 
marche bien) pourrait lasser ses fidèles lecteurs par 
un cumul de pis aller et un manque de fini. 


Guy Toublanc (276) 


CALCULS ASTRONOMIQUES 


Les calculs astronomiques sont un domaine de 
prédilection pour les calculateurs scientifiques. On en 
trouve de nombreux exemples pour différents 
machines (y compris dans les Goodies Disks pour la 
HP48), mais aucun ne correspondant à mes souhaits, 
j'utilise une adaptation des formules utilisées dans le 
module Navigation de la regrettée HP41, elles mêmes 
basées sur des équations développées au United 
States Naval Observatory. La précision atteinte est 
moyenne, de l’ordre de quelques minutes d’arc (la 
puissance de calcul de la HP-41 n’était pas très 
élevée), mais très suffisante pour mes besoins, c’est à 
dire identifier une planète dans le ciel. 


Ce premier article décrit les routines de calcul 
utilisées. Elles sont à considérer comme une boîte à 
outils permettant de réaliser diverses applications 
selon vos besoins. Dans un prochain article, je 
fournirai les routines pour obtenir une représentation 
graphique des planètes dans le système solaire, ainsi 
qu’une vue de leurs positions dans le ciel tel qu’il est 
vu par nous, pauvres terriens. 


Quelques rappels 


Je n’entrerai pas dans le détail des théories de 
modélisations des mouvements des astres dits errants. 
Je rappelerai seulement que les planètes tournent 
toutes autour du soleil approximativement dans le 
même plan (plan de lecliptique) et dans le même 
sens. Le référenciel commode pour décrire ces 











mouvements est le système de coordonnées 
écliptiques dont l’origine est le soleil, les axes X et Y 
étant dans le plan de lécliptique, et l’axe Z étant 
normal à ce plan. L’axe X est dirigé dans la direction 
de l’équinoxe d’automne. Un objet est repéré par les 
angles lamda (angle de la projection du point sur le 
plan de l’écliptique avec l’axe X) et beta (angle du 
point avec le plan), ainsi que (pour les planètes) par 
la distance R au soleil. Les planétes décriraient des 
ellipses parfaites (et immuables) autour du soleil (loi 
de Képler) si elles ne s’influençaient pas entre elles. 
Toute la difficulté de la prévision du mouvement 
précis des planètes réside dans la détermination des 
variations périodiques des orbites. Plus la précision 
souhaitée augmente, plus la série de termes 
périodiques à prendre en compte est importante. 


Organisation du répertoire ASTRO : 
J'ai suivi le principe d’organisation suivant : 


ASTRO contient les programmes d'application, ainsi 
qu’un sous-répertoire 0BJ contenant tous les objets 
utilitaires, non directement appelés par l'utilisateur. 
Cela évite d’encombrer le répertoire de travail d’un 
tas objets et de variables (c’est un des inconvénients 
du RPL, à mon avis). Les programmes d’applications 
comporte donc la séquence oBJ ... UPDIR pour 
accéder aux routines utilitaires de OBJ. 


Dans le répertoire ASTRO de ce premier article, vous 
trouverez : 


cALc : Lance le calcul des positions planétaires, 

POSPL : liste contenant le résultat du calcul, 

pT : dernières date et heure utilisées pour le calcul 
(pour mémoire), et OBJ. 


Je compte enrichir ce répertoire dans de prochains 
articles (j’accepterais volontiers toute contribution). 


Mode d’emploi de CALC 


Entrées: 
2: date au format jjmmaaaa ou mm.jjaaaa selon 
flag -42 (ou 0 si date courante). 
1: heure au format hh.mmss (ou 0 si heure 
courante) 
Sorties: 
Positions des planetes dans PosPL. 


Les positions sont exprimées sous forme de vecteurs 
en unités astronomiques (1 U.A. = distance moyenne 
terre-soleil = 149.6E6 km, dixit HP48) L'affichage est 
mis sous forme de coordonnées sphériques, avec les 
angles exprimés en degrées, mais peut être ensuite 
changé par l'utilisateur. CALC fait appel à FA (calcul des 





a 


arguments fondamentaux commun à tous), puis aux 
formules propres à chaque corps céleste : Vénus, 


Terre, Mars, Saturne, Jupiter. 


Note : Les coordonnées sphériques ne sont pas tout à 
fait identiques aux coordonnées  écliptiques 
habituellement utilisées en astronomie, la différence 
réside dans la 3ème coordonnée qui est l’angle avec 
laxe Z en coordonnées sphériques, alors qu’il s’agit 
de langle avec le plan XY en coordonnées 
écliptiques, les 2 angles étant complémentaires (au 
sens mathématique: leur somme vaut 90 degrés). 


L'utilisation d’un système de coordonnées connu de la 
48 permet de disposer de la puissance de calcul sur 
les vecteurs : par exemple, pour obtenir la distance 
entre deux planètes, il suffit de faire la différence 
entre les deux vecteurs. 


Exemple : 


octobre 
Positions des planètes le 17 nevembre 1993 à 


21h48mndss. 


Faire : 
17.101993 21.4845 CALC 


PosPL contient alors : 





€ 
iVenus: [ .719 Z 150.753 ZL 86.736 ] 
erre: [ .996 Z 24.540 2 90 1 
lars: 11.533 Z-123.082 / 90.236 ] 
sJupiter: [5.449 Z-154.999  Z 88.735 ] 
:Saturne: [9.796 OL -31.189 291.417] 


2 


Comme prévu, la Terre est pratiquement à 1 U.A. du 
soleil, et dans le plan de lécliptique, les autres 
planètes sont plus ou moins éloignées du plan, en 
particulier Venus. 


Calculons maintenant la distance terre-mars à cette 
date : 
- Extraire la terre et mars : 

POSPL 2 GET POSPL 3 GET 


- Puis faire la différence, et en prendre la norme : 
- ABS 


On obtient : 
2.434 U.A., soit 364 millions de km. 


Listings 
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4 ASTRO.SRC 
@ J-F Garnier (242) 


JD 


« 


DIR 
DES S MES Nr eee os 
ACALC 
à calcul des positions 
4 entrees: 
4 niveau2: date (ou 0 si date courante) 
4 niveaul: heure (ou 0 si heure courante) 
4 sorties: 
4 sauvegarde da date et heure dans DT 
4 positions dans POSPL 
Green mens amsn Re ne Le ee 
CALC 
« 
SWAP 
IF DUP O == THEN 4 si date=0,date actuelle 

DROP DATE 

SUAP 

IF DUP O0 == THEN DROP TIME END à si heure=0... 

SHAP à ..heure actuelle 
END » 
SWAP 
DUP2 2 +LIST ‘DT’ STO à copie date et heure en 

à DT pour info 
0BJ à va dans répertoire OBJ a 
JD à calcul temps julian aF 
FA à arguments fondamentaux à 
VENUS a planètes a 
TERRE a 
MARS a 
JUPITER a 
SATURNE a 
UPDIR à retour dans ASTRO a 
5 +LIST ‘POSPL' STO à construit résultat a 
» à dans POPSL 
« 
DT 4 sauvegarde des dernières date et heure 
{003 
POSPL à résultats 
C> 


& sous répertoire OBJ 


conversion de La date et de L'heure 
en temps exprimé en jours Julian (Tijd) 
entrees: 

niveau2: date 

niveaul: heure 

sorties: 
niveau 





temps en jour julian 





000+dtjma 
« 
IF -42 FS? THEN 
dOUP IP ‘j’ STO à format jj.mmaaaa 
FP 100 * DUP IP ‘m’ STO 


à date time jour mois année 


ELSE 
d DUP IP ’m’ STO à format mm. jjaaaa 
FP 100 * DUP IP ’j’ STO 

END 


FP 1E4 * a! STO 


a 367 * 

m9+12/1Pa+7*4/IP- 
m9-7/1Pa+100/1P1+3*4/IP- 
m275*9/1P+ 

j+ 

730516.5 - 

€ HMS 24 / + 





A 
calculs des arguments fondamentaux 

entrees: 

niveaul: temps en jours Julian (Tjd) 
sorties: 

Ts 
Lm,Gm,Fm,Ls,Gs,L2,G2,F2,L4,G4,F4,L5,G5,L6,G6 
Dms,Om, Eps ,DL 





- Tijd 
« 


DEG 


Tijd 36525 / 1 + Ts’ STO 


218.31624 Tjd 13.17639643 * + ‘Lm’ STO 
134.96292 Tjd 13.06499295 * + ’Gm’ STO 
93.27276 Tijd 13.22935027 * + ‘Fm’ STO 
280.46592 Tjd .985647348 * + 'Ls' STO 
-2.47464 Tijd .9856 * + /Gs' STO 
181.97928 Tjd 1.602169 * + IL2r SD 
50.40828 Tjd 1.60213022 * + ’G2’ STO 
105.29928 Tjd 1.60214407 * + F2’ STO 
-4.55292 Tijd .524071181 * + Lé’ STO 
19.38816 Tjd .52402078 * + 'G4' STO 
305.88984 Tjd .524050085 * + F4! STO 
32.25888 Tjd .083091215 * + ’L5’ STO 
20.35116 Tjd .08309121 * + ’G5' STO 
47.9862 Tijd .033459736 * + ’Lé’ STO 
317.87532 Tjd .033459736 * + Gé’ STO 
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Lm Ls - ’Dms’ STO G2 COS -.00493 * .72335 + 


Lm Fm - ‘Om’ STO #r! STO 
Om COS 400 / Ts 1.3056E-2 * - 23.4522222 + 
fEps' STO r L90b--15 SF -16 SF 
Om SIN 4.7222E-3 * ‘DL’ STO V3 "Venus!" -TAG 
» » 
» » 








MARS 
ATERRE, VENUS, MARS, SATURNE, JUPITER « 
à entrees: 000-rbl 
à arguments calculés par FA « 
à sorties: DEG 
& niveaul: position en coordonnées sphériques, 
a et en unités U.A. G4 SIN 10.68083333 * 
a- Gh 2 * SIN .6216666667 * + 
TERRE G4 3 * SIN .050277778 * + 
« F4 2 * SIN .014444446 * - 
000-+rbl à R beta Lambda Gh SIN Ts * .010277778 * + 
« Ge GS 2 * - COS 6.111111E-3 * - 
DEG à calculs en degrés L4 360 MOD + DL - 
!L sTo 
Gs SIN 1.919 * 
Gs 2 * SIN .02 * + F4 SIN 1.834166667 * 
Gs SIN Ts * 4.72E-3 * - Ge F4 - SIN .17277778 * + 
Gs 65 - COS 1.94E-3 * - G4 F6 + SIN 17083333 * + 
Ls 360 MOD + DL - 180 + Gé 2 * F4 + SIN 56.25 / + 
1L1 STO #b' STO 
0 ‘br sTo Gé 3 * COS -4.7E-4 * 
G4 2 * COS -6.6E-3 * + 
100014 Gs COS 01675 * - Gh COS .1417 * - 1.53031 + 
Gs 2 * COS 1.4E-4 * - tr! STO 
fr! STO r L 90 b - à transforme coord. rL90b--15 SF -16 SF -V3 
à ecliptiques -> sphérique "Mars" TAG 
-15 SF -16 SF à vect. en format coord. » 
à sphériques » 
-V3 "Terre" -TAG 
» SATURNE 
» « 
000-+rbl 
VENUS « 
« DEG 
000-+rbl 
« Gé SIN 6.40139 * 
DEG Ts 139278 * + 
65 2* G6 5 * - COS .746944 * - 
G2 SIN .78166667 * .696389 + 65 2 * 
F2 2 * SIN 05027778 * - Gé 5 * - SIN .32694 * + 
G2 SIN Ts * 180 / - 65 2 * G6 4 * - COS .22944 * - 
G2 2 * SIN 300 / + Gé 2 * SIN .222778 * + 
Gs G2 - 2 * COS 360 / - G5 Gé 2 * - SIN .118056 * + 
Gs G2 - 3 * COS 1.944E-3 * + Gé cos Ts * 15.7205 / - 
L2 360 MOD + DL - /L' STO 65 2 * Gé 6 * - COS .0425 * - 
F2 SIN 3.393056 * Gé SIN Ts * .039444 * - 
G2 SIN F2 COS * .0461 * + Gé COS .031667 * - 
‘b' ST 65 2* G6 5 * - SIN Ts * .028056 * + 
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Lé 2 * DUP COS .01944 * 

SWAP SIN .01861 * - - 

G5 2 * G6 6 * - SIN .018333 * + 
65 2 * Gé 5 * - COS Ts * 60 / + 
G5 Gé 3 * - SIN 87.80 / + 

Gé 3 * SIN 92.308 / + 

G5 Gé - SIN 8.6111E-3 * + 

G5 Gé - 2 * SIN 8.6111E-3 * + 
G5 2 * Gé 3 * - COS 8.056E-3 * - 
Lé + 360 MOD DL - 

‘Le STo 


Gé DUP COS -.92944 * 

SWAP SIN 2.30472 * + 

Gé 2 * DUP COS .0525 * 

SAP SIN .128333 * - - 

-051389 + 

Gé COS Ts * .021944 * + 

G5 2 * Gé 4 * - COS 50.704 / - 
65 2 * G6 6 * - SIN .012778 * + 
65 2 * Gé 6 * - COS 80 / - 

Gé 3 * SIN .008056 * + ’b'’ STO 
9.55774 G6 COS .53252 * - 

G5 2 * Gé 4 * - SIN .01878 * - 
Gé 2 * COS .01482 * - 

G5 Gé - SIN .00817 * + 

#r' STO 


r L 90 b- -15 SF -16 SF -V3 
"Saturne" -TAG 


JUPITER 
« 
000+rbl 
« 
DEG 


G5 SIN 5.537222 * Ts 1.3952778 * + 
.6975 + G5 2 * Gé 5 * - COS .303611 * + 
G5 2 * SIN 5.99 / + 

65 2 * Gé 5 * - SIN .133056 * - 

65 Gé - 2 * SIN .051389 * - 

G5 3 * Gé 5 * - SIN .038056 * + 
G5 Gé 2 * - SIN .036389 * - 

65 Gé - COS .02194 * + 

65 Gé - 2 * COS .02111 * - 

G5 COS Ts * .020556 * - 

G5 SIN Ts * 52.94 / + 

65 2 * G6 3 * - COS 54.55 / + 

G5 3 * Gé 5 * - COS .0175 * + 

LS + 360 MOD DL - 

1" STO 


G5 COS -1.3033 * 
G5 SIN 13.9 / + 1 
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65 2 * COS - .063056 * + 
#b' STO 


65 2 * COS -.00604 * 
65 cos .25122 * - 
5.20883 + 

fr' STO 


r L 90 b - -15 SF -16 SF -V3 
“Jupiter” TAG 


Variables auxilliaires à créer en Les initialisant à 
0: 


Ts Lm Gm Fm Ls Gs L2 G2 F2 L4 
G4 F4 L5 G5 Lé Gé Dms Om Eps DL 


END à fin du DIR OBJ 


END @ fin du DIR ASTRO 


Jean-François GARNIER (242) 
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PARAMETRAGE FACILE 


Le HP95 possède de nombreux paramètres de 
configuration non présents sur les IBM PC, tels que 
le volume sonore ou le contraste. Malheureusement, 
si certains sont accessibles par le setup du System 
Manager, certains autres doivent être modifiés par la 
ligne de commande du Dos. Pas très ergonomique... 
De plus, certains paramètres tels que le temps 
d’auto-extinction, ne peuvent pas être modifiés car 
HP n’a pas prévu d’utilitaires pour cela. 


Pour palier à ces problèmes, il existe dans le domaine 
public de nombreux utilitaires tels que HP95CTRL ou 
TIMEOUT (inclus dans notre disquette n°1). 


Je vous présente cependant un utilitaire (appelé 
9SPANEL) permettant de regrouper en un seul 
programme interactif tous ces utilitaires. Je me suis 
efforcé, en prime, de limiter sa taille à moins de 1536 
octets, soit la taille de 3 secteurs des disques du 
HP95. 


Ce programme ne fonctionne pas sur le HP100LX. 


Présentation de l’écran : 





HP95 Panel 
Vol 5 I 5 OFF 
Cantrast Hi Part + RS232 
Lisht sleep : aud 115208 
Time out 53 mn bits 
PaRity EVEN 

çürsor track : OFF stOps 1 
AE Srrous  ? ON 

Total Free Batteries 
Mem : S08K 368K 2.5V (Main) 
Disk C 3 _1821K 25K 2.9V (Backup) 
Card RO) À 26d60k 5852k 


La première partie de l’écran affiche les données qui 
peuvent être modifiées. Pour chaque paramètre, il 
suffit de presser la lettre majuscule correspondante 
(pour certaines touches, il est possible de décroître la 
valeur en "Shiftant" la touche). 


Volume 

Cette ligne permet de régler le niveau du bip sonore. 
Notez que certains programmes sonores travaillant à 
un très bas niveau (SND.EXE) travaillent toujours à un 
niveau constant. D’autre part, le System Manager 
stocke sa propre valeur du volume dans le fichier 
SETUP.ENV de façon indépendante de celle du DOS. 


Contrast 

Cette ligne affiche le contraste courant. Elle est plus 
présentée ici à titre d’information que par but 
purement utilitaire, puisque vous savez sûrement que 
le contraste est modifiable en permanence par les 
touches [ON] [+] et [ON] [-3. 





Light sleep et Timeout 

Pendant l'utilisation de certains programmes (de 
communication, par exemple) il est nécessaire de 
désactiver lauto-extinction du HP95. La première de 
ces lignes permet donc cela. La seconde ligne permet 
de régler ce temps par pas d’une minute (de 1 à 59). 
Une valeur de ’0’ désactive l'extinction automatique. 


cUrsor tracking 

Cette ligne permet d'activer ou désactiver la 
possibilité qu'à le HP95 de déplacer la fenêtre 
d'affichage pour suivre le curseur. Je vous rapelle que 
ce paramètre (ainsi que le suivant) peut être modifié 
dans un fichier batch par la commande D1SPCTL. 


Alt arrows 

Cette ligne permet d’activer ou désactiver la 
possibilité qu’à le HP95 de déplacer la fenêtre 
d'affichage à l’aide des touches ALT +Flèches. 


lo 

Cette ligne permet d’activer la liaison série pour 
lutilisation des programmes de communication. 
N'oubliez pas de la désactiver ensuite, car une liaison 
série active en permanence est le premier facteur 
d’usure des piles. 


Port 
Cette ligne permet de selectionner le port de sortie 
des données : InfraRouge ou RS232. 


Baud, bitS, paRity et stOps 

La commande MOE n'étant pas implantée sur le HP95, 
j'ai inclus les fonctions de configuration de la RS232 : 

- Baud : selectionne la vitesse de transmission. Les 
valeurs reconnues sont les mêmes que celles admises 
par le System Manager : 300, 1200, 2400, 4800, 9600, 
19200, 57600 et 115200 bauds. Notez que, comme le 
volume, les applications System Manager stockent 
leurs propres valeurs de configuration. 

- Bits : Sélectionne longueur donnees 5, 6, 7 ou 8 bits. 

- Parité : Sélectionne la parité : NONE, EVEN, ODD. 

- Stops : Nombre de bits de stops : un ou deux. 





En plus de ces paramètres, le programme affiche 
d’autres valeurs courantes, telles que la taille 
mémoire disponible ou la capacité des batteries. 


Notez que la taille totale indiquée par le disque C 
tient compte de la présence des fichiers inclus dans la 
Rom. J'aurai préféré y voir la valeur sélectionnée 
dans le Setup, mais c’est ce que nous envoie le DOS... 
Il n’était malheureusement pas possible de soustraire 
une constante, car la taille et le nombre de ces 
fichiers et dépendante de la version du HP95. 











Le programme affiche les informations des cartes 
mémoire. La mention (Ro) (Read Only) indique que 
l'on est en presence d’une Rom ou d’une carte Ram 
protégée en écriture. Le programme reconnait les 
Cartes SunDisk, à la condition que le driver soit 
présent. 


Les valeurs indiquées pour les tensions des batteries 
sont indicatives, mais relativement proches de la 
réalité. Il est a noter que le HP95 n'offre pas la 
possibilité de déterminer avec précision la tension de 
la pile incluse dans la carte. 


Pour sortir du programme, il suffit de presser la 
touche ENTER. 


Informations sur le fonctionnement du programme 


Tout d’abord, vous avez pu noter que jai indiqué au 
début de cet article que ce programme est 
incompatible avec le HP100LX. Ceci est dû au fait 
que j'ai dû court-circuter (en accédant directement au 
matériel) les routines standard communes aux deux 
machines, pour lire certaines valeurs clés. Or, si les 
deux machines sont compatibles à un haut niveau, il 
faut savoir que les deux machines sont complètement 
diférentes au niveau du matériel... Suite à un prochain 
numéro ! 

Un des gros problèmes à résoudre dans ce 
programme était l'existence des cartes SunDisk. En 
effet, lorsqu'il n’y a pas de driver, le HP95 se trouve 
dans une situation imprévue, puisque le port 
PCMCIA l'informe qu’une carte est présente mais 
qu’il ne peut pas la lire. Cela aboutit au fameux 
message : 


General Faïlure error reading drive À 
Abort, Retry, Ignore ? 


Il est inutile de dire que l’apparition d’un tel message 
rend l'utilisation du programme impossible. 
Heureusement, le Dos nous permet de résoudre ce 
problème. Pratiquement, cela se fait en créant une 
petite routine d’interception de l'interruption 24h, 
renvoyant la réponse "Fail". 


Un autre problème posé par les cartes, moins 
prévisible celui là, est que les fonctions d’accès aux 
informations de la cartes se sont révélées 
particulièrement lentes (près d’une demi seconde !). 
Et cela quelque soit le type de la carte. Ceci rendant 
laffichage effroyablement lent Ceci m'a donc 
ammené à réécrire le programme de façon à ne 
réafficher les données des cartes qu'après rallumage 
de la machine, avec une recherche du code de la 
touche 1oN] dans le buffer du clavier. 


Q—————————————— 


Afin de réduire la taille du programme, j'ai dû utiliser 
quelques astuces et bousculer un peu mes habitudes 
programmation qui consistent écrire du code très 
structuré : 

- Réduction du code de l'écran de présentation, en 
remplacant les espaces par des tabulations (code 
ASCII 9) et optimisation de la position des colonnes 
en fonction de ces tabulations. 

- Utilisation d’un code compact (même si il n’est pas 
“esthétique"), plutôt que la rapidité ou la logique (voir 
la routine DiskSpce !). 

- Suppression des sauvegardes des registres lors des 
appels aux fonctions. Le gain en octets est indéniable, 
mais nécessite une grande prudence. 

- Si un sous-programme se termine par un appel a un 
autre sous-programme suivi d’un ret, il est préférable 
de faire un branchement direct à ce sous programme. 
- On peut même supprimer le Jump, si on place le 
sous programme appelant juste avant le sous 
programme appelé (voir dspon/printf). 

- Enfin, ayant besoin d’une chaine vide de quatre 
caractères pour effacer la chaine "(Ro)", j'ai profité du 
fait que j'utilise une chaine vide de même longueur 
dans le tableau s_ PAR (elle est vide car la valeur 
d’index 2, n’est pas utilisée par la parité). En y placant 
S_RK, j'ai donc économisé 5 octets. C’est toujours ça 
de gagné. 


Bien sûr, ces dernières astuces doivent être très 
distinctement indiquées, afin de ne pas créer de bugs 
en cas de modifications du programme. 


La dernière astuce utilisée consiste à utiliser l'option 
d'optimisation "-m2" du Turbo Assembler, permettant 
d'éliminer les nombreux NoP que l’assembleur met 
après certaines instructions de saut. 


D'autre part, et dans un autre registre, vous pouvez 
noter que le texte de la première ligne de l'écran de 
présentation ne comporte pas de tabulations en 
replacement des espaces. Cela est dû au fait que j'ai 
constaté que celles-ci étaient affichées sur une 
position différente à chaque exécution du programme, 
comme si les tabulations correspondaient à un 
nombre aléatoire de caractères ! Ce 
dysfonctionnement ne se produit que pour la 
première ligne. Est-ce un bug des fonctions 
d'affichages de la Rom ? 


Vous trouverez les codes hexadécimaux de ce 
programme dans le Coin des Codes. 


Jacques Belin (123) 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à l’aide du programme Makedos. Vous 
obtiendrez un fichier que vous ne pourrez pas 


transférer dans la HP48. 
Programmes HP48 et HP28S 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d'erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes. 


Tapez les deux programmes correspondant à votre 
machine: 

- pour HP-48 : ASSCOD48 et INPUT48 

- pour HP-28S : ASSCOD28 et INPUT28 

(attention aux parties communes et spécifiques HP-48 
ou HP-28S et aux commentaires) 

Ceci avec la plus grande attention car leur mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. La 
commande SPEED (JPC-85 page 12) peut être incluse 
au début de ASSCOD28. NEWLINE (-) s'obtient sur 
HP-48 par [flèche bleue] puis [.]. 


ASSCOD48 996.5 octets 
cksum # 5D1Bh 


ASSCOD28 1136 octets 
cksum # D419h 


<« RCLF HEX 64 STUS 1 SF "" ’tmpcod' STO 


“nombre d’octets @ + NEWLINE 
@ NEWLINE 

"17 INPUT48 1 CF STR- 2 * 16 @ INPUT28 

DUP2 / IP 3 ROLLD MOD DUP2 0 > + @ si HP-28S 


3 ROLLD 1 + 4 ROLL # Oh DUP + nr f s o « 1 SWAP 

FOR i 

DO “Ligne " i 1 - R-+B # 1000h + -STR 4 6 SUB + DUP 
“ @ NEWLINE 
chaine @ + NEWLINE 


“su 
IF THEN r DUP 4 / IP + SWAP OVER 1 SWAP OVER - 
SUB SWAP 18 + ELSE 38 END ‘0’ STO + 

. @ NEWLINE 

"+ 1 FS?C IF THEN ROT SWAP CLLCD 1 DISP HALT 
ELSE o INPUT48 END DUP @ INPUT28 

WHILE DUP “ # POS DUP @ si HP-28S 

REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 

1 + 25 SUB IF DUP " = THEN DROP ELSE + END 

END DROP O OVER SIZE 1 SWAP 

FOR j OVER j DUP SUB NUM j * + NEXT 

S + DUP # FFFh AND 











" @ NEWLINE 

somme de controle @ + NEWLINE 
ae @ + NEWLINE 

#" 6 ROLL SWAP + 34 INPUT4B STR+ == @ INPUT28 

IF THEN SWAP DROP 1 @ si HP-28S 


ELSE DROP2 1000 1 BEEP 1 SF O END 
UNTIL END ’s'’ STO 
WHILE DUP " # POS DUP 
REPEAT DUP2 1 SAP 1 - SUB 3 ROLLD 1 + 19 SUB + 
END DROP ’tmpcod’ DUP RCL ROT + SWAP STO 
NEXT f STOF » tmpcod 
@ * HP-48 + @@ “eeneenesene Hp.2gS ereneeeneennennes 
"GROB 8 " @@ # 20204A04F3D02C67h # F80004F02C96040Ch 
OVER SIZE @@ # 8DCCO5081F804F27h # 313103190F81836 1h 


2/7" @@ # 681808AE91851391h # 45DC061171085168h 
++ SWAP @@ # F3D3CEAA25ESD8Eh # 2F9004h 28 STUS 
+ STR+ @@ #0 OR 64 STWS 1 7 START # 3B82h SYSEVAL 
# 4017h @@ NEXT # 20238h SYSEVAL # 4F3Dh SYSEVAL 
SYSEVAL  @@ EVAL 

# 5686h  @@ toutes ces lignes marquées @@ peuvent 

SYSEVAL  @G@ être remplacées par ASC- : 


DROP @@ soit pour HP-48 (JPC-79 page 11) 
NEMOB  @@ ou pour HP-28S (JPC-85 page 8) 


“fin“ CLLCD 1 DISP » @ HP-28S dito 
INPUT48 412.5 octets INPUT28 228 octets 
cksum # 15C7h cksum # 9412h 
« SWAP 1 @ partie commune 
WHILE OVER CLLCD 1 DISP @ HP-48 et HP-28 
REPEAT @ puis séquence 

DO UNTIL KEY END @ HP-48 ou HP-28 
@ “erresesssses Hp 4g venssssesses QQ seeeee HP.28S verse 








IF DUP 51 THEN DROP O0 @@ 1F DUP "ENTER" 
ELSE IF DUP 55 == THEN DROP  @@ THEN DROP 0 
1 OVER SIZE 1 - SUB @@ ELSE 
ELSE @@ IF DUP "BACK" == 
CASE DUP 17 < THEN 54 + END @@ THEN DROP 1 OVER 
DUP 66 < THEN 7 - END @@ SIZE 1 - SUB 


DUP 76 < THEN 20 - END @@ ELSE 
DUP 86 < THEN 33 - END @G@ suite voir HP-48 
92 == THEN 48 END  @@ 
46 END CHR  @@ 
+ DUP SIZE 3 PICK - 2 + 5 MOD NOT @ partie 
1 FC? AND IF THEN + END END 1 @ commune 
END END SWAP 60 SUB » @ HP-48 et HP-28 











JPC 90 Page 33 — 








Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante : 


1- lancez le programme ASSCOD48 ou ASSCOD28 

2- donnez le nombre d’octets (1/2 octet compris) puis 
validez avec ENTER. 

3-tapez chaque ligne de codes, correspondant au 
numéro de ligne à 3 chiffres, sans les espaces et 
validez. 

4- tapez la somme de contrôle et validez. S'il y a 
erreur la ligne de codes sera demandée à nouveau 
après émission d’un 8EEP. L’appui sur EDIT fera 
apparaître la ligne des codes qui pourra être corrigée. 
Alors relancez avec CONT. 

5- après l'affichage de "fin" stockez le programme 
assemblé dans la variable donnée en tête. 

6- si tout s’est bien déroulé vous pouvez purger tmpcod 
qui contient la chaîne de codes. 


Programmes MS-DOS 


Afin d’être utilisé par tous, ce programme est destiné 
à être écrit en Gw8asIc. Il devrait cependant être facile 
de le convertir pour un autre programme (@BASIc, 
Turbo BASIC. 





Programme MAKEDOS.BAS 


Mode d'emploi : 


1- Lancer le programme : GWBASIC MAKEDOS.BAS 

2- Entrer le nom du fichier destination. 

3- Entrer la taille du fichier. 

4- Entrer les listes de codes puis le checksum (en 
prenant soin d'entrer les codes héxadécimaux en 
majuscules). En cas d'erreur corriger la ligne, en 
prenant soin de placer le curseur après le dernier 
caractère avant de taper sur la touche d’entrée. 

5- Une fois que toutes les lignes sont entrées, sortir 
du GwBAsic en exécutant la commande system. Le 
nouveau programme est immédiatement disponible. 


Note : La taille du fichier résultant peut être 
supérieure d’un octet à ce qui est affiché dans le 
listing. Cela n’est pas un problème. 


10 INPUT “Nom du fichier : ",NOMS : INPUT “Nombre d’octets : ",N : N=N*2 
20 OPEN NOMS$ FOR OUTPUT AS #1 : CLOSE #1 : KILL NOMS 

30 OPEN "bin.tmp' FOR OUTPUT AS #1 : S=0 : P$="---- ---- ---- ---- " 

40 NLINES=N\16 : LENLAST=(N MOD 16)+CCN MOD 1615) 

50 IF CN MOD 16)=0 THEN NLINES=NLINES-1 : LENLAST=LEN(PS) 

60 FOR X=0 TO NLINES 

70 IF X=NLINES THEN PS=LEFTS(PS, LENLAST) 
80 c$=P$ 

90 X2S=MO0M+HEXS(X) : PRINT RIGHTS(X25,3) 
100 Y=CSRLIN : LOCATE Y,6 : PRINT C$; : LOCATE YŸ,6 : INPUT ",C$ : IF Y=24 THEN Y=Y-1 
110 LOCATE Y,27 : PRINT sm = -- LOCATE Y,33 : INPUT "",D$ 

120 M=S 

130 FOR Z=1 TO LEN(CS) 

140 IF MIDS(CS,Z,1)<>" " THEN M=(M+((Z-(Z\S))*ASC(MIDS(CS,Z,1))) MOD 4096 

150 NEXTZ 

160 Ds: +HEXS(M) : D2S=RIGHTS(D2S,3) 

170 IF D2$>DS$ THEN PRINT "Erreur de somme" : BEEP : GOTO 90 

180 FOR Z=1 TO LENCCS) STEP 2 

190 IF MIDS(CS,Z,1)=" " THEN Z=Z-1 : GOTO 230 

200 CH=ASC(MIDS(CS,Z,1))-48 : IF CH>9 THEN CH=CH-7 

210 CL=ASC(MIDS(CS,Z+1,1))-48 : IF CL>9 THEN CL=CL-7 

220 PRINT#1,CHRS((16*CH+CL ); 

















230 NEXTZ 
240 S=M 
250 NEXT X 


260 CLOSE #1 : NAME "bin.tmp" AS NOM$ : END 
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SPEED CHP28) 
# A389h 17 octets 


6F74 2049 6E73 7461 746 
écéc 6564 0049 5220 2E9 
2020 0052 5332 3332 DCé 
0080 0160 0030 0018 83€ 
000€ 0006 0002 0001 262 


E872 02E8 4E01 B90F  A36 
0232 E4BB 0200 3302 708 
E9C4 O1E8 3E01 FEC3  65E 
E837 O1FE CB83  5A4 
B800 47CD 15E8  45A 


0123 4567 89AB CDEF sm 





000: 69c2 OD10 0013 2340 B07 OO4E 4F4E 4500 4F44  FD8 2A01 88C3 B90F O3EB 3BC 
001: OFFF 1341 5428 D108 7E5 4420 0020 2020 2000 9BA D826 8036 D600 0126 F67 
002: 30 878 4556 454E 0028 524F 604 A0D6 00BA OFO05 EB41 DC3 


2900 2020 2020 2020 0E0 
0076 5663 436C 7454  D92 
7561 6970 6242 7353 94C 
7252 6F14 0418 0438 647 
0442 0459 0468 0471 1E1 
0488 049C O4AF O4C6 058 

04F0 0419 051F  D69 

0540 0563 05FC AA6 


2681 O6A3 0044 O4EB BOF 
0726 812E A300 4404 702 
26A1 A300 0514 0089 339 
3C00 F7E1 8BC2 B90F  2C2 
: 06EB A626 8036 9300 EDC 
: 0226 A093 00D0 E8BA  DA5 
OFO08 EBOD 2680 3693 ABE 
0001 26A0 9300 BAOF 88E 


9SPANEL . COM CMS-DOS) 
1535 octets 


0123 4567 89AB CDEF sm 





E9D4 0154 6869 7320 C13 


7072 6F67 7261 6D20 8E0 03B: B824 25BA 7905 CD21 89E 0924 0134 O1EB 14BA 690 
7275 6E73 206F 6E6C 703 03C: B44A BB80 O0CD 218C 7AD 01E3 EC34 O4EE BAO1  56D 
: 7920 6F6E 2061 6E20  4D8 03D: 0008 8840 O08E COB8 5CC E3EC DOE8 DOE8 2401 327 
4850 3935 4C58 ODOA  29E 03E: D44D CD15 81FB 5048 3E3 BA22 02E9 7201 BAOA 117 
: 000D 0920 2020 2020 D12 03F: 7506 81F9 0101 7409  FD5 E3EC 3404 EEBA OAE3  OFE 
: 2020 4850 3935 2050 838 040: BA03 01E8 3F03 E907  D88 ECDO E8D0 E824 O1BA F99 
616E 656C ODOA 0A56 651 041: 0126 8026 1700 BFB8  B89 2203 EBC7 018A 6502 CD1 
: 6F6C 756) 6520 2020 222 042: 0700 CD10 BA29 O1E8  98C 3c01 7403 BA6B O2E9 B1E 





5801 EBAO 0043 EB04 878 
E89A 004B 83E3 07E8 686 
Cé00 E890 O0D0 E38B 4DC 
&F71 02BA 0100 B800 11F 
C283 F901 7402 F7F1 EDF 
8922 05BB 0600 E9E6 D23 
: 00E8 7100 42EB O4E8 B15 
6800 4A80 E203 E897  8DE 
00E8 6100 8AC2 0405 544 
B922 06E9 FBFE E854 569 
0040 3C02 74FB EB09 454 
E84A 0048 3D02 0074 049 
FA24 03E8 7200 E83C E2D 
0081 05F6 E105 8102 A68 
BA22 O7E8 4601 8BD0 823 
: E9E2 00E8 2700 80F1 4FE 
01E8 5400 ES1E O08A 2AC 
C1FE COB9 2208 E9B8  19F 
FEBO O3CF BA09 E3EC 23A 
B102 D2E8 8AD8 2403 FC9 
D2EB 32FF C3BA FB03 FF2 
52EC 508A C80C 80EE FB1 
B2F8 ED33 DB39 8771 DEF 
: 0276 0443 43EB F6D1  C9B 
EB58 5AEE BAD1 83E2 CO4 
03D0 E9DO E98A C183 AD9 
E101 DOE8 2503 O0C3 760 
5250 8080 BAFB 0352 535 
EED1 E388 8771 0282 2A8 


009: 2020 2020 3A09 0949  E3D 
: 6F09 3A0D OA43 6F6E  D4E 
7472 6173 7420 2020 81C 
2020 3A09 0950 6F72  4FD 
7409 3A0D OAOA 4C69 363 
: 6768 7420 7360 6565 033 
00F: 7020 203A 0909 4261 BE7 
010: 7564 093A ODOA 5469 964 
011: 6D65 206F 7574 2020 542 
: 2020 203A 0920 206D 195 
6E09 6269 7453 093A E82 
ODOA 0909 0970 6152 A5SA 
: 6974 7909 3A0D 0A63  7E5 
: 5572 736F 7220 7472 425 
: 6163 6820 3A09 0973  OAB 
018: 744F 7073 093A ODOA  E79 
019: 4160 7420 6172 726F  B7C 
7773 2020 203A ODOA 871 
C4C4 C4C& C4C4 CéC4  7D1 
C4C4 C4C4 C4C4 C4C4 731 
C4C4 C4C4 C4C4 C4C4 691 
C4C4 C4C4 C4C4 C4C4  5F1 
01F: C4C4 C4C4 C4C4 C4C4 551 
020: ODOA 0920 2020 2020 FE1 FB1E 7303 BB3C BFF 
021: 546F 7461 6C20 2020 B87 813F O0A0 75E4 967 
4672 6565 2020 2042 660 05C: 26C7 0700 O0E9 56FF 806 
6174 7465 7269 6573  2C8 05D: 8410 CD16 3C00 7412 440 
ODOA 4D65 6D09 2020 F34 3c0D 741C BEA 0238 223 
3A09 0909 284D 6169 C3F 0474 0946 B1FE B202 FB8 


E80E 01E8 2F01 72E 
01E8 5201 E868  4A9 
7601 E887 O1E8 258 
E8C5 01E8 F101 FDF 
02E8 2E02 26A1 CEB 
BAOB OCEB 4003 A2B 
FFB4 48CD 2188  A00 
06D3 E840 40BA 826 
E82B 0380 O0BA 630 
E8F1 0280 O1BA 462 
E8E9 0282 03E8 2A2 
53BA OB0D E80F 212 
BA12 ODE8 0803 F4D 
E3EC A840 750E  DBD 
0EE8 1603 BA4B C5F 
B102 EB28 BAOS AC1 
0803 BA8B O2A8 929 
038A 9502 E89C 7BE 
O1E8 3302 728 4CD 
OB0E E8D1 0258 2C2 
OEE8 CAO2 BA00 117 
E002 8411 CD16 EFA 
2688 1E1A 004B CE6 

















6E29 ODOA 4469 736B  A12 060: 76F5 EBBA 81EE A102 EBC F8EF 5A58 DOEO OAC1  17D 
2043 0920 203A 0909  5FD 061: D1E6 FF94 B302 EBAE F2E 098: DOEO DOEO 590A CEE 12A 
0928 4261 6368 7570 27F 062: B44C CD21 E865 O1FE  E40 O9c: C3B4 36CD 213D FFFF 28A 
290D 0A43 6172 6420 E46 COEB 05E8 5E01 FECB E37 090: 7413 D1E8 7206 DIE3 O7D 
2020 2020 203A 204 A8B 064: 2403 B448 CD15 B207  BCB 09E: D1E2 EBF6 D1EB DIEA 103 
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09F: 8BC2 F8EB 
0A0: 528B D1E8 
OA1: 0600 BE9A 
OA2: AC3C 2074 
0A3: E82A 00E8 
OA4: D18B CA74 
0A5: DBB2 20CD 
0A6: 4F4E 2000 
OA7: E869 O0BA 
0A8: 7403 BA34 
0A9: E866 00B4 
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01F9 
9E00 
02E8 
FB4E 
9300 
OAB4 
21E2 
4F4é 
3006 
0650 
4088 


c353 
5ABB 
8100 
8816 
SA2B 
0233 
FCC3 
4600 
3c01 
5351 
0100 


085 
028 
DA9 
DA2 
B40 
865 
81A 
430 
085 
C7E 
888 


OAA: 

0AB: 
OAC: 
OAD: 
OAE: 
OAF: 
080: 
081: 
082: 
083: 
084: 


co21 5958 58C3 


0084 
05F6 
FEC4 
D40A 
D5E8 
8AD1 
E819 
0033 
E8AA 
DBCD 


50cD 
F248 
3C0E 
0530 
2100 
cp21 
008E 
D2E8 
FFB2 
21C3 


1532 
3c13 
7302 
3088 
B22E 
8256 
9A02 
2800 
4BB4 
5053 


E848 
E482 
7308 
FEC4 


cp21 
EB15 
BB06 
8816 
0233 
5284 


5co 
287 
CF 
o1c 
E2E 
CA6 
AF1 
97F 
762 
483 


085: 
086: 
087: 
088: 

089: 
OBA: 
088: 
OBC: 
OBD: 
OBE: 
OBF: 


0233 
c353 
0074 
c350 
8BFA 
0A00 
88F8 
80c2 
0E8B 
cBcé 
SESF 


DBCD 105A 
33c9 8BDA 
0441 43EB 
5351 5257 
8BE8 03F3 
8Bc7 33D2 
8BC5 F7F1 
3088 144€ 
c50B C775 
0420 4EE2 
SA59 5B58 


5858 
803F 
F758 
5655 
4EB9 
F7F1 
8BE8 
4874 
E38B 
FAS5D 
c3 


325 
260 
120 
D27 
CEC 
BE6 
C5E 
9E0 
944 
8FE 
0c7 
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